/*------------------------------------------------------------------------------
#
#	Apple Macintosh Developer Technical Support
#
#	Pop-up Menu Example Application
#
#	PopMenus
#
#	PopMenus.r	-	ResEdit Source
#
#	Copyright © 1988 Apple Computer, Inc.
#	All rights reserved.
#
#	Versions:	1.0					8/88
#
#	Components:	PopMenus.p			August 1, 1988
#				PopMenus.r			August 1, 1988
#				PopMenus.make		August 1, 1988
#
#	This program is a simple example of how to use pop-up menus in your
#	application. It implements a pop-up as a userItem in a modal dialog
#	box (this is a helpful example in its own right!).
#
#	See Sample and TESample for the general structure and MultiFinder 
#	techniques that we recommend that you use when building a new application.
#
------------------------------------------------------------------------------*/
/*
 * Pop-up Menu Example - Resources
 * Bryan Stearns 07Apr87 
 */

#include "Types.r"

/* Our dialog record */
resource 'DLOG' (128) {
	{30, 30, 330, 490}, dBoxProc, invisible, noGoAway, 0, 128, "Pop-up Test"
};

/* Our dialogÕs item list */
resource 'DITL' (128) {
	{	
		/* the ÒOKÓ button */
		{110, 210, 130, 270}, Button { enabled, "OK" },
		
		/* our pop-upÕs userItem */
		{70, 106, 86, 210}, UserItem { enabled },
		
		/* the prompt for our userItem */
		/* (the initial space makes it look better hilighted) */
		{70, 20, 86, 105}, StaticText { disabled, " Pick a font:" },	

		/* our button's ÒdefaultÓ roundrect userItem (we move it to */
		/* around the OK button at runtime). It's important that it */
		/* be disabled, so that we can tell it from the pop-up! */
		{0, 0, 0, 0}, UserItem { disabled },
		
		/* The program name & date */
		{10, 10, 60, 280}, StaticText { disabled,
			"Pop-up Menu Example\nApple Developer Technical Support\n(BJS 07Apr87)" }
	}
};

/* The ÒI need System 4.1 etc.Ó alert */
resource 'ALRT' (129) {
	{50, 50, 180, 370}, 129, {
		OK, visible, sound1;
		OK, visible, sound1;
		OK, visible, sound1;
		OK, visible, sound1
	}
};

/* The item list for our ÒI need System 4.1 etc.Ó alert */
resource 'DITL' (129) {
	{	
		/* the ÒOKÓ button */
		{100, 220, 120, 300}, Button { enabled, "Finder" },
		
		/* The message */
		{10, 65, 90, 300}, StaticText { disabled,
			"The Pop-up Menu Example requires a Macintosh II, SE, Plus, or "
			"512Ke personal computer, with system software version 4.1 or newer."
		}
	}
};
